home *** CD-ROM | disk | FTP | other *** search
/ Creative Review 34 / Creative-Review-CD-ROM-34.iso / pc / jkd / folio / scripts.cst / 00007_Script_SearchMenu DropAcross Parent Script < prev    next >
Text File  |  1998-01-26  |  3KB  |  73 lines
  1. property menuList
  2. property menuStart
  3. property menuLoc
  4. property chosenOption
  5. property attemptChosenOption
  6.  
  7. on new me,castList,startSprite,startLoc
  8.   set menuList = castList
  9.   set menuStart = startSprite
  10.   set menuLoc = startLoc
  11.   set the chosenOption of me = 1
  12.   set the attemptChosenOption of me = 1
  13.   return me
  14. end new
  15.  
  16. on showMenu me
  17.   set spritePos = menuLoc
  18.   repeat with i = 1 to count(menuList)
  19.     puppetSprite (menuStart + i - 1), true
  20.     if (i = the chosenOption of me) then
  21.       set the member of sprite (menuStart + i - 1) to member (getAt(menuList,i)&"down") of castLib "Buttons"
  22.     else
  23.       set the member of sprite (menuStart + i - 1) to member getAt(menuList,i) of castLib "Buttons"
  24.     end if
  25.     set the height of sprite (menuStart + i - 1) to the height of member getAt(menuList,i) of castLib "Buttons"
  26.     set the width of sprite (menuStart + i - 1) to the width of member getAt(menuList,i) of castLib "Buttons"
  27.     set the loc of sprite (menuStart + i - 1) to spritePos
  28.     set spritePos = spritePos + point(the width of member getAt(menuList,i) of castLib "Buttons",0)
  29.     set the visible of sprite (menuStart + i - 1) to true
  30.   end repeat
  31. end showMenu
  32.  
  33. on hideMenu me
  34.   repeat with i = 1 to count(menuList)
  35.     set the member of sprite (menuStart + i - 1) to 0
  36.     puppetSprite (menuStart + i - 1), false
  37.     set the visible of sprite (menuStart + i - 1) to false
  38.   end repeat
  39. end hideMenu
  40.  
  41. on downOption me
  42.   if (the attemptChosenOption of me <> the chosenOption of me) then
  43.     set the member of sprite (menuStart + the attemptChosenOption of me - 1) to member (getAt(menuList,the attemptChosenOption of me)&"down") of castLib "Buttons"
  44.     set the member of sprite (menuStart + the ChosenOption of me - 1) to member getAt(menuList,the ChosenOption of me) of castLib "Buttons"
  45.     set the chosenOption of me to the attemptChosenOption of me
  46.     set the visible of sprite 30 to false
  47.     updateStage
  48.     puppetsprite 30,false
  49.     puppetSprite 33,false
  50.     actionMenu me
  51.   end if
  52. end downOption
  53.  
  54. on actionMenu me
  55.   set searchTerm = getAt(the menuList of me,the chosenOption of me)
  56.   global imageBar,toolBar,fullImageList
  57.   set imageBar = []
  58.   set toolBar = []
  59.   set imageList = setUpImageList (fullImageList,searchTerm)
  60.   if (getAt(getAt(imageList,count(imageList)),3) + getAt(getAt(imageList,count(imageList)),4)) < 460 then
  61.     set toolBar = new(script"Toolbar Parent Script",["top",point(0,-2),"middle",point(0,0),"bottom",point(0,2)],5,point(115,372),372,372)
  62.     set imageBar = new(script "ScrollingImageBar",(getAt(getAt(imageList,count(imageList)),3) + getAt(getAt(imageList,count(imageList)),4)) ,point(0,21),470,(the maxVPos of toolBar - the minVPos of toolBar),imageList)
  63.   else
  64.     set toolBar = new(script"Toolbar Parent Script",["top",point(0,-2),"middle",point(0,0),"bottom",point(0,2)],5,point(115,372),372,372)
  65.     set imageBar = new(script "ScrollingImageBar",(getAt(getAt(imageList,count(imageList)),3) + getAt(getAt(imageList,count(imageList)),4)) ,point(0,21),470,(the maxVPos of toolBar - the minVPos of toolBar),imageList)
  66.   end if
  67.   displayBar imageBar,6,(the locV of the toolLoc of toolBar - the minVPos of toolBar)
  68.   updateStage
  69.   set the attemptSelectedImage of imageBar to getAt(the selectedImageList of imageBar, 1)
  70.   displaySelectedImage imageBar
  71.   updateStage
  72. end actionMenu
  73.